Exemplar exclusivo do assinante - Venda proibida 



Dicas 


Quebra-cabeça: 
o banqueiro 
e o ministro 


ESP: 
o TK na 
parapsicologia 


Remunerando 
programas 
em 30 segundos 


A REVISTA DOS USUÁRIOS DO TK 


ANO I - N? 1 • Maio 83 



Características Técnicas 

• Linguagem BASIC 

• 1b Kbytes de ROM. 

• 16 ou 48 Kbytes de memória 
RAM. 

• 40 teclas e 160 funções. 

• Gravação de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Video: aparelhos de TV B&P 
ou colorido. 

• Funções especiais 
HIGH-SPEED 

• Som Opcional. 

• Joystick, impressora. 

Preço de lançamento: 

Crí 179.850,00 (16K) 

Crí 249.850,00 (48K) 

(Preço sujeito a alteração) 
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Editorial 

Os companheiros do TK 

Há alguns anos, ocorreu uma 
segunda revolução na área da Infor¬ 
mática; depois dos computadores do¬ 
mésticos, vieram os computadores de 
baixo custo. O grande pioneiro foi o 
inglês Clive Sinclair que está atual¬ 
mente inundando o mercado norte- 
americano com computadores ven¬ 
didos por menos de 100 dólares. 

Este tipo de computador usa um 
basic cujo interpretador ocupa um 
ROM de 8k: o BASIC- TK. 

Vários computadores usam o 
BASIC-TK, entre eles o Sinclair 
ZX81, o Timex 1000, o TK82-C, etc. 

Há também outras versões am¬ 
pliadas do BASIC- TK: são as utiliza¬ 
das pelo ZX Spectrum na Inglaterra e 
aquela utilizada pelo TK85 no Brasil. 
Ambos os equipamentos podem re 
ceber Software escrito em BASIC- 
TK. 

Dado o baixíssimo preço destes 
equipamentos (no Brasil o TK82-C é 
vendido por menos de 100 mil cruzei - 
ros), a quantidade de usuários é gi¬ 
gantesca. 

Criou-se, dentro do mundo da 
Informática, normalmente dominado 
pelos profissionais, um sub-conjunto 
todo especial: o dos usuários do 
BASIC-TK. 

Eles são altamente significativos 
não só pela qualidade, pois há entre 
eles muitos amadores entendidos, 
mas também pela espantosa quanti¬ 
dade. 

Para compartilhar desta enorme 
comunhão de cérebros, criamos esta 
Revisto. Ela será o veiculo de inter¬ 
câmbio entre os usuários do BASIC- 
TK no Brasil. Além disto ela trará to¬ 
das as mais importantes contribui¬ 
ções do pessoal lá de fora e (por que 
não?) levará ao Exterior todas as coi¬ 
sas bonitas que nós brasileiros esta¬ 
mos fazendo com os nossos TK. 
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PROGRAMA DO 
LEITOR 


Flip-Flop 

Samuel Ejchel 


UIU EM 


1 REM SRMUEL EJCHEL 
1000 PRINT RT 2,10;.FLIP-FLOP" 

1010PRINT RT 4,0, "CONUERTER E 05 
D^HHHQ EM *í*+B****“ 

' 1020 DIM R(9) 

1030 DIM B(9) 

*4 104-0 LET 1=0 
m. 1050 LET 3 = 1 

1060 FOR S=1 TO 9 
61070 LET R(S)=-1 
1080 LET B (5) =1 
1090 NEXT S 
1100 LET R(5)=1 
-1110 LET B(5) = — 1 
1120 PRINT RT 11,11; “»“ 

1130 FOR 5=1 TO 9 

1140 IF R(5)=-l THEN PRINT RT 10 
,10+5;"D 

1150 IF R(S)=1 THEN PRINT RT 10, 
10+S; " *“ 

"1160 NEXT S 
1170 FOR 5=1 TO 9 

1180 IF R(S) < >B (5) THEN GOTO «132 
0 

IF1190 NEXT 5 

1200 PRINT RT 21,0;" 

1210 PRINT RT 19,12; 

1220 PRINT RT 20,2,* 

•*; I; ** FLIPS-FLOPS" - 

E NOUO R ? NT RT 21 * 0 ^ ' 0UER «JOGRR d 
1240 POKE 16437,255 
^1250 PRU5E 30000 
' ,1260 LET O $ = INKEY % 

1270 IF Q$=“S“ THEN GOTO 1300 

1280 IF G$=”N" THEN GOTO 1650 

1290 GOTO 1240 

1300 CLS 

1310 GOTO 1000 

1320 PRINT RT 21,0,"EXECUTE UM F 
LIP-FLOP 

1330 POKE 16437,255 
1340 PRUSE 3000® 

1350 IF INKEY $ = ** “ THEN GOTO 1350 
£1360 IF INKEY $ = “7“ THEN GOTO ’140 

1370 IF INKEY $ = *’ 5 ** 

0 

1380 IF INKEY$="8" 

0 

1390 GOTO 1330 

1400 IF R(U)=-1 THEN GOTO 1480 
1420 LET 1=1+1 

1430 IF <J = 1 OR «J =9 THEN GOTO 150 
0 

1440 LET R (U) =R (U) * <-1) 

1450 LET ft(J-l) =fl(J-l) f (-1) 

1460 LET R(J+1)=R(J+1)*t-l) 

1470 GOTO»" 1130 

1460 PRINT RT 21,0;"FLIP-FLOP ER 
RRDO TENTE NOURMENTE" 

- 1490 GOTO ,1330 

1500 LET R llJ =R 11) * C-l) 

1510 LET R (9) =R (9) * C-1) 

1520 IF 3 = 1 THEN LET R(2)=R(2)*Í 

1530 IF 3 = 9 THEN LET R(8) =R(8) * ( 

',2 1540 GOTO 1130 
J 1550 IF 3 = 1 THEN GOTO 1330 
1560 PRINT RT 11,10+J," “ 

^1570 LET 3=3-1 
1580 PRINT RT 11,10+3;“»“ 

1590 GOTO 1330 

1600 IF 3 =9 THEN GOTO 1330 
1610 PRINT RT 11,10+J; " 

1620 LET 3 = 3 + 1 
,1630 PRINT RT 11,10+J; 

1540 GOTO 1330 
1650 CLS 

1660 PRINT RT 11,11;“ 

1670 STOP 

1680 SfiUE "FLIP-FLO0” 

1690 RUN 
1700 STOP 


THEN GOTO 155 
THEN GOTOyl60 


É um QUEBRA-CABEÇA em 
que se pretende converter a se- 
qüência BBBB* *BSBB 
(* = asterisco normal; S = aste¬ 
risco em fundo escuro) na nova 
****B # ***no menor número 
de conversões ("FLIP-FLOP") 
possíveis. Valem as seguintes re¬ 
gras: 

1) Só se pode comandar a conver¬ 
são de um * em B — Nõo vice- 
versa! 

2) Ao se converter um elemento 
da seqüência, os adjacentes 
também se convertem, ou seja, 
se o da direita for B e o da es¬ 
querda *, por exemplo, após a 
ordem de conversão um se tor¬ 
na * e o outro B, respectiva¬ 
mente. 

3) Os extremos são "adjacentes", 
ou seja, comandada a conver¬ 
são do elemento da extrema di¬ 
reita, o da extrema esquerda 
também se converte. 

No vídeo é criado um indi¬ 
cador " mt" que se move à direi¬ 
ta ou à esquerda por atuação 
nas teclas 8 e 5 respectivamen¬ 
te. O indicador estando sob 
. um *, sua conversão é coman¬ 
dada por ação na tecla 7. O 
"joystick" pode ser usado em 
lugar das teclas; cuidado ape¬ 
nas com o botão de "disparo" 
pois, atuando nele, o programa 
é interrompido. 

O número de conversões 
("Flip-Flops") é acumulado e 
informado ao fim do jogo. Ten¬ 
tativas erradas (de converter B 
diretamente em *) não são con¬ 
tadas. 

Devido a limitações de lin¬ 
guagem a conversão é um pou¬ 
co demorada. Tenha calma e 
aguarde a ordem para novos 
movimentos. 

BOA SORTE! 
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Genius 


Carlos Eduardo Rocha Salvato 
(14 anos) 


Este programa é a adaptação, 
para o TK, de um famoso brinque¬ 
do, no qual você demonstra sua 


habilidade em memorizar seqüên- 
cias. O programa exige expansão 
e é auto-explicativo. 


e: n i u 


uoc 


1 REM CRRLOS EDURRDO ROCHR 

lewe R EH BttÊmkÈààBBÜ 0 ^ 

1010 CUS 'TY 

1020 FfiST 
1030 DIM PÍ18.1 
104-0 DIM 

1050 DIM BS (10.8) 

1060 DIM F$(10,8) 

1070 CUS 

1080 PRIMT " *-* * *■» ** ***G 
S *■»**■******■• 

1090 PRINT QUE NIOEU 

E G05TflR Ifl DE JOGAR '?" 

1100 PRINT "1 E O MAIS FfiCIU" 
1110 PRINT ”9 E ü MflIS OIFICIU" 
1120 PRINT "ESCOLHA UM NUMERO EH 
TRE 1 E 9" 

1130 POKE 164-37,255 
1140 PAUSE 30000 
1150 UET I$ = INKEY S 

I* <"!’• OR I$>"9" THEN GO 

TO 1130 

1170 UET DI=UfiU 
1130 UET F*(l)="l 
1190 UET F$(2)=i 
1200 UET F$ (3) = ■ 

1210 UET F$ (4) =". 

1220 UET F$ (5) = "|_ 

1230 FOR U=1 TO 5 
1240 UET B$U) =F*(1) 

1250 NEXT U 
1260 FOR U=1 TO 10 
1270 UET P(U)=INT (RND*4)+1 
1280 NEXT U 
1290 CUS 

1300 PRINT - - 



1310 PRINT •’ 
E N I U 5 | 

^Jg^PRINT" 


I T K 3 2 


C -- G 


1330 FOR N = 1 to 2 iUEL 
134-0 GOSUB 1770 
1350 NEXT N 
1360 PRUSE 100-(DI410) 

1370 FOR U=1 TO 8 
1380 FOR L = 1 TO ü 

RND*4-) [ + l DI>S THEN LET PÍL) =INT 1 

14-00 LET N =P (L ) 

141© GOSUB 1360 
1420 PRUSE 50 
1430 GOSUB 1770 

1440 IF Dl>6 THEN GOSUB 1940 

145© NEXT L 

1460 FOR L=1 TO U 

1470 POKE 16437,255 

1480 PRUSE 300-Í20*NJ 

1400 LET I$ = INKEY$ 

1500 XF 1*="” THEN GOTO 1650 
1510 IF X* OR X$> '4'* THEN GC 

TO 1470 

1520 LET N=URL (1$) 

1530 GOSUB 1360 


1540 
1550 
1560 
1570 
RT OS 
1580 
1590 
1600 
1610 
1620 
1630 


IF NoP(L) THEN GOTO 1650 
GOSUB 1770 
NEXT L 

PRINT RT 4,8;"NUMERO DE RCE 

** / uí; 

PRUSE 50 
NEXT U 
PRUSE 100 
CL 3 

PRINT RT 11, 

PRINT RT 12/ 



1640 GOTO 1700 

1650 PRINT RT 16,0;“UOCE ERROU.. 


CERTO E RR ; 

1670 FOR R=1 TO U 
168© PRINT P(R) 

1690 NEXT R 

No5«ME5fE T o" T 19 ' e '" OUER DENTAR 
1710 POKE 16437,255 
1720 PRUSE 30000 
1730 LET I$=INKEY$ 

1740 IF I$ = "3” THEN RUN 
1750 IF I$ = "N’* THEN GOTO 2070 
1760 GOTO 1710 
1770 FOR 0=1 TO 5 

IF N=1 THEN LET R=0 
IF N=2 THEN LET R=8 

-IF N =3 THEN LET ft = I6 

1810 IF N=4 THEN LET R=24 
1820 PRINT RT (0*1)+4,R; F$ (O) 
1830 NEXT O 

lis* R§TURN fiT 7 ' 0+3 ' CHR * (N + 1S6) 

1860 FOR 0=1 TO 5 
1870 IF N =1 THEN LET R=0 
IF N =2 THEN LET R=3 
IF N =3 THEN LET R = 16 
1900 XF N = 4 THEN LET R=24 
1910 PRINT RT (0*1) +4 ,R; B$ (Ol 
1920 NEXT O 
1930 RETURN 

1940 LET S = INT <RND*24) +1 
195© FOR 0=1 TO 5 
1960 FOR U = 1 TO 5 
1970 LET U$iU) =" 

1980 NEXT U 

1990 PRINT RT (0*1)+10,S;F$(O) 
200© NEXT O 

2010 PRINT RT 13,S + 3.;CHR$ (INT C 
RND*4)41+156) 

2020 PRUSE 20 


17S0 

1790 

1800 


1380 

1390 


2030 

2040 

2050 

2060 

2070 

2030 

2O90 

2100 

2110 

2120 


FOR U=1 TO 5 

NEXT^U^ (W * 1J +10/S;U$(U) 

RETURN 

CLS 

PRINT RT 11,11, ,, SS3'* 

ST OP 

SRUE "GENIUS*' 

RUN 
ST OP 
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Desenho 

Luís Fernando B. P. Mello Barreto 
(12 anos) 

Você pode fazer desenhos in¬ 
críveis na tela, mas tome cuidado! 
Se você bater na moldura o pro¬ 
grama parará. Você pode compe¬ 
tir com seus amigos para ver guem 
faz o desenho mais bonito, sem ba¬ 
ter na moldura. 

Comandos: 

Linha contínua: 5 = esquerda 
8 = direita 

6 = baixo 

7 = cima 

Linha tracejada: 1 = esquerda 

2 = direita 
4 = baixo 

3 = cima 



1 REM DESENHO 

2 REM LUIS FERNRNDO S ^ P « MELLO 

BARRETO 

10 FOR N=0 TO 20 
20 PRINT RT N, 0; BT 

30 NEXT N 

4-0 FOR N=0 TO 31 

50 PRINT RT 21.. N; RT 0, N; "■ 

60 NEXT N 
*70 LET X = 1 
30 LET Y = 1 
90 PRINT RT 
10© POKE 154-37 / 255 
110 PRUSE 3000© 


120 

X 

IF 

INKEY$ = ,, 5 M 

THEN 

LET 

1 

> 

II 

> 

130 

x 

IF 

INKEY $ = "S" 

THEN 

LET 

X=X + 

14-0 

x 

IF 

INKEY * = " 7 '* 

THEN 

LET 

X =x — 

150 

x 

IF 

INKEY*="Q- 

THEN 

LET 

Y =Y + 

150 

2 

IF 

INKEY$ = * , 4." 

THEN 

LET 

X =X 4- 

170 

2 

IF 

INKEY*="3" 

THEN 

LET 

X =X — 

130 

2 

IF 

INKEY * = **2 ** 

THEN 

LET 

Y = Y + 

190 

o 

IF 

INKEY * = •* 1" 

THEN 

LET 

1 

> 

II 

> 


200 GOTO 90 
210 ST OP 

220 SRUE "DESENH®" 
230 RUN 
24.0 STOP 


QUEBRA - CABEÇA 




O Banqueiro 
e o Ministro 

Era uma vez um pequeno país fictício 
no qual havia apenas um banqueiro e um 
único super- ministro. 

Um dia o super-ministro, preocupa¬ 
do com uma previsão de inf laçao de 280% 
ao ano, chamou o banqueiro e disse: 

“Vou tabelar os juros: deste momento 
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em diante você poderá cobrar, no máxi¬ 
mo, 100% ao ano." 

O banqueiro empalideceu. Afinal de 
contas ele também estava prevendo uma 
inflação de 280% ao ano. Muito esperta¬ 
mente, então* fez uma contraproposta: 

"Para facilitar os cálculos, posso co¬ 
brar 50% por semestre? Isto não vai alte¬ 
rar nada pois estou dividindo o prazo ao 
meio, mas também estou reduzindo a taxa 
de juros á metade." 

O ministro pensou com seus botões: 

"Este cara pensa que sou idiota: 50% 
ao semestre não é a mesma coisa que 
100% ao ano: no primeiro semestre o ca¬ 
pital fica multiplicado por 1,5 e no segun¬ 
do semestre novamente por 1,5 logo no 
fim do ano o capital é multiplicado por 1,5 
x 1,5 = 2,25. Isto corresponde a uma taxa 
de 125% ao ano. Mas como isto é inferior a 
180% ao ano, já que a inflação será de 
280%, eu ainda saio ganhando." E autori¬ 
zou a mudança. 

O banqueiro, porém, ainda não esta¬ 
va satisfeito: 

" Para facilitar mais ainda, ao inVés de 
dividir a taxa de juros e o prazo por 2, será 
que poderia dividir por 4?" 

"Explique-se melhor"- bravejou o 


super-ministro. 

"Calma" respondeu o banqueiro, 
"estou apenas propondo cobrar 25% por 
trimestre". 

Mais uma vez o super-ministro fez um 
cálculo mental: 

1,25 x 1,25 x 1,25 x 1,25 = 2,44 
como isto correspondia a 144% ao ano e o 
máximo suportável seria 180%, o super- 
ministro topou. 

Matreiramente o banqueiro pensou: 

"Positivamente este sujeito, é um 
trouxa. Vou aproveitar a chance!" 

Assumiu um ar o mais cândido possí¬ 
vel e arriscou: 

"Bem, para não ser obrigado a con- 
sultá-loa toda hora, poderíamos estabele¬ 
cer uma coisa: eu divido a taxa de juro de 
100% por n e o ano também por n, já que 
isto não faz diferença. Desta maneira con¬ 
forme o caso, eu poderia cobrar juros por 
semestre, ou por mês ou até por dia." 

O super-ministro fez um rápido cál¬ 
culo, estendeu a mão e disse: 

"Negócio fechado!" 

Mais do que depressa, antevendo 
uma taxa de juros por segundo o banquei¬ 
ro apertou a mão estendida e se retirou fe¬ 
liz. 


E agora perguntamos aos leitores: 

A) Qual dos dois foi mais esperto? 

B) Se o banqueiro adotar como unidade 
de tempo o milésimo de segundo, um 
capital C, ao cabo de um ano aumen¬ 
tará para NC. 

Quanto vale N? 

C) Quanto vale o logaritmo neperiano 
deste número N? Por que? 

Mais uma vez esperamos receber 
suas respostas acompanhadas de um 
programinha que calcule a taxa de juro 
anual nos casos em que o banqueiro utili¬ 
ze como unidade de tempo o ano, o se¬ 
mestre, o trimestre, o mês, a semana, o 
dia, a hora, o minuto e o segundo. Espe¬ 
ramos, também, que você entenda que o 
caso citado é fictício! 

As cartas devem ser envidas para 
MICROMEGA P. M. D. Ltda. 

Caixa Postal n? 60081 
CEP 05096 - São Paulo - SP 

Contendo seu nome, endereço e al 
guns dados pessoais (idade, profissão, 
etc.). 

A melhor carta que chegar à reda¬ 
ção até 30 de junho será publicada, rece¬ 
bendo seu autor remuneração corres¬ 
pondente à de um artigo. 


Solução do quebra-cabeça do n? zero 


O problema da pulga 

Edson Tadeu Tanaka 

Na revista n? 0 foi proposto o que¬ 
bra-cabeça da pulga e eu resolvi aceitar 
o desafio. 

Vejamos como atacar o problema. 
Nas figuras , vemos a pobre pulguinha 
após o seu 1? salto. Completado o salto, 
a tira é esticada, aumentando seu com¬ 
primento de 10 cm. Como o comprimen¬ 
to foi multiplicado por 2, isto é, de 10 cm 
passou para 20 cm, a posição onde esta¬ 
va a pulga também foi deslocada, isto é, 
a posição inicial 1 cm após esticar trans¬ 
formou -se em 2 cm. Como mostra a figu¬ 
ra 2. A pulga, então, dá o 2? salto e passa 
da posição 2 cm para a posição 3 cm (fi¬ 
gura 3). Outro esticamento e o compri¬ 
mento da fita passa de 20 cm para 30 cm, 
isto é, aumentou de 1,5 vezes. Portanto, a 
posição onde está a pulga, 3 cm, passa a 
ser a posição 3x1,5 = 4,5 cm (figura 4). 
E mais um salto (figura 5), e assim por 
diante. 

Nesse ponto eu desisti de fazer figu¬ 
ras e resolvi passar o problema para o meu 
TK82 (muito menos cansativo). 

A seguir está a listagem do progra¬ 
ma. E só apertar RUN e esperar a respos¬ 
ta. 

O programa utiliza somente 1 Kbyte. 
As variáveis utilizadas são: POS (posição 
da pulga), T (tempo decorrido), COMP 
(comprimento da tira), MULT (multiplica¬ 
dor para obter a nova posição da pulga 
após o esticamento), HORAS, MIN, SEG 
(horas, minutos e segundos). 

Após aproximadamente 5 minutos de 
espera obtém-se a resposta: 3 horas, 26 


minutos e 7 segundos. Portanto, a alterna- • 
ti va correta é a C. 

FIGURAS 


A 


Após o 3? Salto 

-- 

4,5 5,5 


30 


Após o 1? Salto 


-U4 

A 1 


B 

10 


Após esticar 


A 


4- 

2 


B 

20 


A 


Após o 2? Salto 

-Ci 

2 3 


B 

20 


Após esticar 


-4-1~ 

A 4,5 


B 

-H- 

30 


Nota da redação: recebemos também ou 
tras respostas interessantíssimas. Demos 
preferência à solução do EDSON por ser 
completa, sem deixar de ser simples. 
Queremos, porém, citar como menção 
honrosa as soluções de: 

Samuel Ejchel (e sua filha Lilian) 

João Fernando Coelho Noronha 
L. Pitaluga Jr. 

Ronald Sónksen 

Nelson Armando dos Santos Couteiro 

Guy e Sylvain Harari (nível profissional) 

Antonio Carlos Leão 

Silvio Moura Velho 

Luiz Nilton Palladino 

Carlos A. M. Pisciottano 

MaurizioP. G. G. Niccolai 

Roberto M. Bekman 

Frederico Alpino 

Antonio Tadeu Corrêa Bueno 

Walter Persson Hildebrandi 

Francisco de Sales G. Cândido 


1 

REM 

PROBLEMA DR PULGR 

2 

REM 

EDSON TRDEU TRNRKR 

10 

FR5T 

20 

LET 

P05 = 1 

30 

FOR 

T =2 TO 300-0 

40 

LET 

COMP-10 *T 

50 

LET 

MULT=T/ tT -*11 

60 

LET 

POS =PGS *MULT+1 

70 

IF P05>=C0MP THEN GOTO 110 

80 

NEXT 

T 

90 

PRIMT "SOLUCRO NRO ENCONTRR 

DR" 



100 

ST OP 

110 

LET 

HORR=INT (T/3600) 

1 20 

LET 

MIN = INT C (T-HORRf3600) / 

60) 



130 

LET 

SEG=T HORR*3600-MIN*60 

140 

PRIKT "SOLUCRO ";HORR. HO 

RRS * 

';MIN;” MINUTOS 

*•; SEG; ** 

SEGUNDOS. ** 
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A FITA DO MÊS 
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"Um encontro que nâo prometia 
grande emoções acabou tornando*se uma 
agradável surpresa. O mestre quando jo¬ 
ga contra um adversário, que é teorica¬ 
mente mais fraco, tende a jogar "na técni¬ 
ca", evitando grandes complicações, pois 
o adversário vai errar mesmo... O pensa¬ 
mento criador é deixado de lado e joga-se 
apenas mecanicamente, baseado nos re¬ 
flexos da erudição adquirida em longos 
anos de prática. Estas partidas normal 
mente sáo maçantes. A própria vaidade 
pode ser alimentada, mas nâo aquela cu¬ 
riosidade criadora que transformou você 
de um perna de pau num mestre. 

O encontro contra o TK82-C parecia 
fadado a mais uma partida monótona. Pri¬ 
meiro, pela velocidade com o que o TK 
responderia (quase que imediatamente 
no nível 0, e 15 segundos no nível 1); e se¬ 
gundo, que eu ainda tinha lá as minhas 
grandes dúvidas de que um pequeno cas¬ 
sete pudesse me fazer frente. 

A primeira partida, porém, jogada 
em menos de cinco minutos, no nível 0, já 
serviu para estimular a minha curiosida¬ 
de. Para quem joga "ao toque" (variante 
que às vezes se joga no Clube de Xadrez 
Sáo Paulo em que nao é permitido pensar: 
cada lance deve ser respondido imediata¬ 
mente), "ele" estava se saindo muito bem. 
Surpreendente foi no lance 21 quando o 


TK cometeu um erro muito comum de 
quem joga “ao toque", permitindo- me dar 
o mate de uma forma que antes estava de¬ 
fendida. Uma reação "humana", portan¬ 
to, e isto eu nâo esperava de um computa¬ 
dor. 

Na segunda partida, jogada no nível 
2(15 segundos) foi que o TK me surpreen¬ 
deu realmente. Joguei alguns lances im¬ 
precisos e fiquei em posição iníerior! Tive 
de usar de toda a minha criatividade para 
“virar" a partida. No final poderia ter da¬ 
do o mate um lance antes (31... Cg3 + em 
vez do desnecessário 31... Dgl +), mas só 
o fato de eu estar procurando um mate 
mais sofisticado, esteticamente bonito, já 
demonstra como eu estava envolvido na 
partida. A emoção de ver um mate bonito 
ofuscou a objetividade do mate mais sim¬ 
ples. Como se vê, beleza nâo põe mesa. 
TK 82-C vs. Herman Claudius (Nível 0) 

I e4 c5 2 Cf3 Cc6 3 d4 cxd4 4 Cxd4 Cf6 
5 Cc3 e5 6 Cxc6 bxc6 

7 Be3 Be7 8 Bc4 0-0 9 0-0 Bb7 10 Dd3 d5 

II exd5 cxd5 12 Ba6 Bxa6 

13 Dxa6d4 14Tadl Db6 15 Dxb6axb6 16 
Bxd4 exd4 17 Txd4 Bc5 
18Td3Tfe8 19Tfdl h620a4Cg421 Tld2 
Tel + +. 

TK 82-C vs. Herman Claudius (nível 1) 

1 e4 c5 2 Cf3 Cc6 3 d4 cxd4 4 Cxd4 Cf6 5 
Cc3e56Cf5 d57Bg5 d4 


8 Bxf6 gxf6 9 Cb5 Bxf5 10 exf5 a6 11 Ca3 
Bxa3 12 bxa3 Da5 + 

13 Dd2 Dxa3 14 Bd3 Tg8 15 0-0 0-0-0 16 
Dh6 Dd6 17 Bc4 Td7 18 Dxh7 Df8 
19 Dh4 Ce7 20 Dxf6 Tc7 21 BxF7 Rb8 22 
De6 Tg5 23 Tabl Txf5 
24 Bg6 Tf6 25 Dxe5 Cxg6 26 Dxd4 Cf4 27 
De4 Te7 28 Dc4 Ce2 + 29 Rhl Txf2 
30 Txf2 Dxf2 31 Dxa6 Dgl + 32 Txgl 
Cg3 + 33 hxg3 Th7 + 34 Dh6 Txh6 + + . 

A seguir fiz uma experiência. Colo¬ 
quei a seguinte posição na memória do 
computador: brancas — Rhl, De4, Ce8, 
Ph2; pretas - Ra8, Dg4, Tg8, Th8, Pa7, 
Pb7 (fig. 1). Disse que eu jogaria de pretas 
e mandei que fizesse o lance. Nos níveis 3 
e 4 o TK limitou-se a dar o xeque perpétuo 
com 1 Cf7 + Rg8 2 Ce8+ Rh8 3 Cf7 + , 
etc., mas no nível 5 em menos de cinco mi¬ 
nutos achou a solução: 1 Cf7+ Rg8 2 
Ch6 + ! Rh8 3 Dg8 +!! Txg84Cf7+ 4. 

Foi uma experiência divertida!" 

Nota da redaçáo: O programa TK XA¬ 
DREZ II é um programa protegido que 
nâo pode ser duplicado por caminhos 
normais. Conseqüentemente a fita deve 
ser armazenada com cuidado, ao abrigo 
de fortes campos magnéticos. Nas instru¬ 
ções, existe um erro de imprensa: para 
limpar totalmente o tabuleiro devemos di¬ 
gitar X0000 e nâo X000. 
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Proçroõfos do Mos 


Mini - Invasor 

Este programa pode ser rodado utili¬ 
zando apenas 1 K de RAM! Consiste numa 
versão extremamente simplificada dos 
clássicos jogumhos de "Invasores" que 
descem do céu. 

Um invasor desce e tenta pousar so 
bre seu veiculo que está no chao. Se con¬ 
seguir, o jogo termina. Você pode deslo¬ 
car o veiculo para a esquerda (Tecla 5) ou 
para a direita (Tecla 8). Pode também ten¬ 
tar destruir o invasor atirando nele (Tecla 
0). O tiro, porém, só sairá se o invasor e o 
veículo estiverem na mesma vertical. 

Dispondo de apenas 1 K de RAM, vo¬ 
cê digitará apenas as linha de 1000 a 1125. 

Se o seu computador não tiver 
"SLOW" você deverá acrescentar as li¬ 
nhas. 


104-6 PRUSE 30 
1106 PRUSE 30 
1121 PRUSE 30 


A tela íicará piscando, mas dará para 
jogar assim mesmo. 

Dispondo de até 2 K, digite o progra 
ma inteiro (até a linha 1190). Neste caso, 
para salvar o programa em fita, ao invés 
de digitar: 

SAVÉ “MINI-INVASOR" 

Você jDoderá usar a instrução: 

GOTO 1140 

Assim fazendo, quando você recar¬ 
regar o que colocou na fita, o computa 
dor, após receber o programa, começará 
a executar o que vem na linha seguinte â- 
indicada. Neste caso, a linha a ser execu 
tada será a 1145 (veja maiores detalhes so¬ 
bre esta técnica na seção “Dicas"). 


MINI— INURSOR 

©■REM C-MICROMEGfl 1963 
1000 SLOU 
1005 RAND 
1010 LET K=2 
1015 LET S=0 
1020 LET P=S 
1025 LET H = INT (RNDtl6) 

1030 LET R* = "J*TV 

1035 FOR O = INT (RNDílS) TO 19 
1040 CL5 

PR INT RT U,H-l.;A$;fiT 20,P-1 

IF RBS ÍH)=P RND U>9 RND IN 
" 0 ** THEN GOTO 1100 
XF INKEY*=“5” THEN LET P=P- 

IF INKEt * = "8" THEN LET P=P + 
) 

LET H=H+INT (RNDí3)-1 
LET H=H+(H(K)-(H>15) 

NEXT U 

IF RBS (H-P) >2 THEN GOTO 1© 

PRINT RT 5,5;"CONTflGEM=";5 
PRUSE 120 
RUN 

FOR N=19 TO U STEP -1 
PRXNT RT N , P; “ . “ ; RT 2©,P;"* 


1050 
KEY* = 
1055 
(P >K) 
1060 
(P < 15 
1065 
107-0 
1075 
1080 
25 

1085 
1090 
1095 
1100 
1105 


1110 NEXT N 
1115 LET 5=5+10 
112© PRINT RT U.H-K. 
1125 GOTO 1025 
113© 5TOP 


">X+X< 


1140 SRUE “MIN I - INORSOS’’ 
1145 PRINT “MINI -INURSOR” 


1150 PRINT 
1155 PRINT 
SOBRE SEU 
INR . " 

1160 PRINT 
1165 PRINT 
ERDA" 

1170 PRINT 
EITR" 

1175 PRINT 
URSOR 

ONR NR MESMR 


SE O INURSOR POUSRR 
UEICULO, O JOGO TERM 


•5 = MOUIMENTO P/ESOU 

•8 = MOUIMENTO P/ DIR 


'0 = 


UOCE RTIRR NO IN 
O TIRO SO* FUNCI 

„ „ _ - UERTICRL” 

1180 PRINT "RPERTE NEU LINE PRRR 
CONTINUAR" 

1185 INPUT G $ 

1190 GOTO 1000 
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Programas do Mês 

ESP: 

Extra Sensory 
Perception 


0|REM TESTE PftRRPSICOLOGICO 
C-MICROMEGR 1983 
1000 D IM XÍ5) 

1010 FOR X=1 TO S 
1020 LET X(IÍ=0 
1030 NEXT I 
104-0 LET 01=0 
1050 LET X=0 
1060 LET 3=0 
1070 CL5 

1080 PRINT T RB 6; "TESTE PRRRP^IC 

OLOGIC0" _ 

1898 PRINT TRB 3; 


1100 PRINT 

1110 PRINT "DIGITE R LETRR DR RL 
TERNRTIUR ESCOLHIDA E PRESSION 
E NEW LINE" 

1120 PRINT 

"R. . ..CLRRIOIDENCIR" 
"B....PREMONIÇÃO” 

"C_.ESTUDO CONJUNTO 


1130 PRINT 
114-0 PRINT 
1150 PRINT 
DE R E B" 
1160 PRINT 
STICOS DE 
OBTIDOS " 
1170 PRINT 


"D . 


••CÁLCULOS ESTRTI 
RESULTADOS UR* 


1180 
1190 
R$ < > 
70 

1200 
E5TA 1 
1210 
1220 
1230 
124-0 
*, '* 
1250 
ES 7 
1260 
1270 
HIDO 
1280 
1290 
ES" 
1300 


INPUT R$ 

IF R$ < >"R" RND R$<>' B" AND 
C" RND R$ < >"D" THEN GOTO 10 

PRINT "R ESCOLHR DE "iHí," 
COMFIRMADA7SIM=S ","NRO =N" 
INPUT B$ 

IF B$="N" THEN GOTO 1070 
CLS _ 

PRINT RT 12,0;"ESCOLHA :";R 

PRINT RT 13,0;"QUANTOS TEST 

INPUT N 

PRINT RT 13,0;"NUMERO ESCOL 
DE TESTES =",N 
IF N > =50 THEN GOTO 1350 
PRINT "ACONSELHAMOS 58 TEST 


PRINT "PRRR TER SIGNIFICADO 
ESTRTISTICOR AMOSTRA DEUE TER,N 
O MÍNIMO, 25TESTES" 

1318 PRINT "DESEJA MANTER ESTE N 
UMERO? (S OU N>" 

1320 INPUT B$ 

IF B$="S" THEN LET S=1 
IF SOl THEN GOTO 1230 
IF R$ = "D" THEN GOTO 14-80 


1330 

134-0 

1350 

1360 

1370 

1380 

1390 

EUEM 


DIH E(N) 

DIM RíN+5) 

CLS 
PRINT 
SER 

ITIUOS DE 
14-00 PAUSE 
14-10 CLS 
14-20 PRINT 
TRNDO O NUMERO' 
14-30 PRUSE 380 
144-0 CLS 
1450 RAND 
1460 GOTO 1620 
1470 CLS 

1480 PRINT "NUMERO 


"05 ITENS DIGITRDOS D 
NUMEROS INTEIROS POS 
0 R 9 INCLUSIUE" 

600 

"PODE COMECAR”,,"DIGI 
*E NEU LINE" 


DE SUCESSOS 


Há alguns anos atrás um livro escrito 
por dois franceses, um dos quais físico nu¬ 
clear, despertou um grande interesse pe¬ 
lo estudo dos poderes extra-sensor ia is. Es¬ 
te livro "O Despertar dos Mágicos” 
tornou-se rapidamente um “best-seller” 
proporcionando um ganho espetacular a 
seus autores. Nâo vamos agora discutir o 
conteúdo do livro, mas sim seus efeitos: fa¬ 
rejando a possibilidade de lucros fartos e 
imediatos, uma porção de editores e auto¬ 
res inundou o mercado com livros e revis¬ 
tas “pseudo-científicas” onde se discutem 
temas indubitavelmente fascinantes: 
UFOs, pirâmides, deuses astronautas, po¬ 
deres parapsicológicos, etc. 

Como a credulidade humana (ao 
contrário da inteligência) não tem limites, 
prontamente o mercado absorveu tudo. 
Chegou-se inclusive a criar uma espécie 
de "MÁFIA PABAPSICOLÓGICA" na 
qual um autor dava apoio e credibilidade 
a outro, criando uma verdadeira rede bi¬ 
bliográfica aparentemente séria mas que, 
obviamente, nâo resiste a uma análise crí¬ 
tica mais aprofundada. 

Este proliferar de charlatães (lem¬ 
bram Uri Geller?) fez com que os verda¬ 
deiros cientistas, assustados, se afastassem 
de investigações nessa área, pelo temor 
de ver seu nome envolvido nessa máfia. 
Porém, rejeitar toda essa parafernália cir¬ 
cense sem uma análise crítica é uma atitu¬ 
de tão anti-científica quanto aceitá-la sem 
ressalvas. 

Existe telepatia? Até hoje nenhum es¬ 
tudo sério, científico, em condições con¬ 
troladas e realizado por pessoas isentas, 
conseguiu demonstrar que sim! 

Toda “demonstração” da existência 
de telepatia está falseada pela má-fé, 
charlataniceou, no mínimo, ingenuidade 
na interpretação dos dados. 

Isto demonstra que a telepatia não 
existe? De forma alguma! Isto demonstra 
apenas a necessidade de estudarmos estes 
fenômenos de maneira adequada. 

O programa ESP, por nós adaptado 
de uma publicação francesa (Daniel Ma- 
vrakis), é uma primeira tentativa de se fa¬ 
zer algo neste sentido. O leitor poderá tes¬ 
tar com o auxílio de alguém muito impar¬ 
cial (seu TK) se ele ou algum familiar pos¬ 
suem dons parapsicológicos. 

O programa gera uma série de nú¬ 
meros aleatórios que o sujeito, ao ser tes¬ 
tado, tentará adivinhar. 

Se ele optar por CLARIVIDÊNCIA, 
estará testando sua habilidade em adivi¬ 
nhar um número já gerado. Se optar por 
PREMONIÇÃO, ele tentará adivinhar um 
número ainda a ser gerado num futuro 
que varia de 1 a 5 passos. 


Para que a experiência tenha signif i 
cação estatística é conveniente escolher 
pelo menos 25 testes (o aconselhado são 
50). O próprio programa se encarrega de 
corrigir o cálculo estatístico quando o nú¬ 
mero é pequeno. 

Pode-se optar, ainda, por um simples 
estudo estatístico de uma experiência já 
realizada. 

Neste caso o seu TK vai fornecer o va¬ 
lor de X 2 (KHI QUADRADO), grandeza 


estatística que correlaciona o número de 
sucessos realmente obtidos com o número 
de sucessos previstos teoricamente pelo 
cálculo das probabilidades. 

Digamos, por exemplo, que você jo¬ 
ga um dado 70 vezes, tentando obter o nú¬ 
mero 3, e que você consegue obtê-lo 15 
vezes. 

Quando o programa perguntar (na 
opção D) “Quantos testes?”, devemos di¬ 
gitar 70; “Quantos sucessos?” digitamos 
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14-90 input x 

1500 PRINT X 

1510 PRINT "PROBRBILIDRDE TEORIC 

9 DE SUCESSODE CRDR TESTE(DE 0 R 

1) : 

1520 INPUT PI 

1530 IP PI<0 OR P1>1 THEN GOTO 1 

550 

154-0 GOTO 1590 

1550 PRINT "URLOR NRO ACEITO " 

1560 PRUSE ISO 

1570 CL5 

1530 GOTO 1520 

1590 PRINT PI 

1600 LET P2=1—PI 

1610 GOTO 1910 

1620 CLS 

1630 LET Plr.l 

164-0 LET P2 = . 9 

1650 FOR 1=1 TO N 

1660 LET Rd) =INT ÍRND*10) 

1565 PRINT RT 0,0; I,N;‘* TESTES** 
1670 INPUT E(I) 

1630 IP E (I) < 0 OR E (I) >9 THEN GO 
TO 1700 

1690 GOTO 174-0 

1700 PRINT “UR LOR NRO RCEITO" 

1710 PRUSE 130 

1720 CLS 

1730 GOTO 1670 

174-0 NEXT I 

174-5 CLS 

1750 POR I =N +1 TO N ->-5 
1760 LET flíl)=INT (RND*10) 

1770 NEXT I 

1760 IP R$="B" THEN GOTO 134-0 
1790 POR J = 1 TO N 

1300 IP R(J)=E(J) THEN LET X=X+1 
1310 NEXT U 
1320 GOTO 1330 

1330 IP R $ = " R " THEN GOTO 1900 
134-0 POR L=1 TO S 
1350 POR K =1 TO N 

1360 IP RlK+L)=EiK) THEN LET X(L 
) =X CU +1 
1370 NEXT K 
1330 NEXT L 

1390 IP R$="B" THEN GOTO 2000 
1900 PRINT " CLRRIUIDENC IR : " ; X; " 
ACERTOS EH " , N; ** TESTES" 

1910 IP Sol THEN GOTO 194-0 
1920 LET KH12 =(RBS CRBS CX-(P1*N 
) ) - .5) ) Í42/CPUN) + l RBS (RBS ( í N- 
X) - (P2*N> ) - . 5) ) **2/(P2fN) 

1930 GOTO 19S0 

194-0 LET KHI2=(RBS í (X-(PlíN.U) i 
*2/ ÍP1*N) + (RBS ( (N-X) - (P2fN) > J ** 
2/(P2*N)) 

1950 GOSUB 2110 
1960 PRUSE 600 
1970 CLS 

1930 IP R $ = " D " THEN GOTO 24-00 
1990 IP R$="R" THEN GOTO 234-0 
2000 POR M=1 TO S 

2010 PRINT ** PREMONICRO COM ";M;" 

TESTES , */ , DE DEPRSRGEH 
" RCERTOS EM " , N; ** TESTES" 


2020 IP S«>1 THEN GOTO 2050 
2030 LET KH12 =(RBS (RBS (X (H) - ( . 
1*N) ) - . 5) ) H2 / ( . liN) -► (RBS (RBS ( 
(N-X (H) ) - í . 9*N) ) - .5) ) **2/ ( • 9*-N) 
204-0 GOTO 2060 

2050 LET KH12 =(RBS (X(M) -( .1*N) ) 

) **2/ ( . 1 *N) 4- (RBS ( (N-X CM) ) - ( - 9*N 
)))**2/(. 9*N) 

2060 GOSUB 2110 
2070 PRUSE 600 
2080 CLS 
2090 NEXT M 
2100 GOTO 234-0 

2110 IP KHI2<10.33 THEN GOTO 216 
0 

2120 PRINT "KHI OURDRRDÜ =";KHI2 
,"TESTE EXTREMRMENTE POSITIUO ", 
”P<0 / 001 ",,"EXISTENCIR DE PACUL 

DRDES PSI" 

2130 PRINT 
214-0 LET 01 = 1 
21S0 RETURN 

2160 IP KHI2<6.64 THEN GOTO 2210 
2170 PRINT "KHI OURDRRDO =",KHI2 
, "TESTE POSITIUO** y , "P CO .OI" , , "EX 
ISTENCIR PROURUEL DE ","PRCULDRD 
ES PSI" 

2130 PRINT 
2190 LET 01=1 
2200 RETURN 

2210 IP KH 12 <3 ■ 84- THEN GOTO 2260 
2220 PRINT "KHI OURDRRDO =";KHI2 
, "TESTE POSITIUO" , , "P <S m s m " , , "EX 
ISTENCIR POSSIOEL DE","FRCULDRDE 
S PSI" 

2230 PRINT 
2240 LET 01=1 
2250 RETURN 

2260 IP KH12 <2.71 THEN GOTO 2310 
2270 PRINT "KHI OURDRRDO =",KHI2 
, "TESTE PRflCAMEMTE POSITIUO" , "P < 
10 " , , "TRLUEZ EXISTRM" , , "FRCUL 

DRDES PSI" 

2280 PRINT 
2290 LET 01=1 
2300 RETURN 

2310 PRINT "KHI OURDRRDO = ";KHI2 
,"TESTE NEGATIOO",,"P>90 m S m "//"N 
RO PORRM DETECTRDRS","PRC 


PSI" 

2320 PRINT 


2330 RETURN 

2340 IP 01=1 THEN PRINT "DRDO O 
BOM RESULTADO , E* RCON5E- LHRUEiL. 
REPRZER O TESTE" 

2350 IP OlOl THEN STOP 

2360 PRINT "O COMPUTRDOR REPETIR 

R*O TESTE","DENTRO DE INSTANTES" 

2370 PRUSE 600 

2380 CLS 

2390 RUN 

2400 STOP 

2410 SRUE "TESTE PRRRPSICOLOGICS 


2420 RUN 
2430 STOP 


15. A pergunta "Qual a probabilidade 
teórica de sucesso?" Deve, neste caso. ser 
respondida como sendo 1/6 = 0.1667, 
pois há 1 chance em 6 de sair um certo nú 
mero ao ser jogado o dado. 

O seu TK responderá então que o va¬ 
lor de KHI QUADRADO é 1.141, que o 
teste foi negativo (com uma probabilidade 
de certeza de 90°/o) e que portanto, não fo¬ 
ram detectadas faculdades PSI (parapsi- 
cológicas). 

Digamos, agora, que você joga uma 
moeda para cima e tenta advinhar se dá 
cara ou coroa. Numa série de 50 testes vo¬ 
cê acerta 42 vezes. NoseuTK, então, você 
entrará (na opção D) com estes dados, 


lembrando que a probabilidade teórica 
de sucesso é 0.5 (pois há 1 chance em 2 de 
você acertar). 

O seu TK fornecerá um valor de KHI 
QUADRADO bem elevado (23.12) e es¬ 
creverá uma mensagem dando o teste co¬ 
mo positivo. 

Antes que você inicie suas próprias 
experiências, queremos adiantar que ne¬ 
nhum de nós, aqui da redação, apresenta 
qualquer tipo de faculdade PSI. Isto nos 
frustrou consideravelmente (afinal, quem 
não gostaria de se sentir cercado por uma 
misteriosa aura de magia?), mas ao mes¬ 
mo tempo despertou nossa curiosidade. 

Será que entre os milhares de usuá¬ 


rios do TK não haverá alguém realmente 
dotado dessas faculdades? Se houver, por 
favor, escreva-nos dando os resultados, 
pois gostaríamos de testá-lo sob condições 
controladas. 

Para os outros não dotados mas cu¬ 
riosos, aconselhamos a leitura de um dos 
raros cientistas (de verdade!) que se arris¬ 
cou a contestar a enxurrada de imbecili¬ 
dades que assola o mundo: CARL SA- 
GAN. 

É extremamente instrutivo ler-se "O 
Romance da Ciência", editado no Brasil 
pela Francisco Alves, em contraposição a 
milhares de obras escritas em sentido con¬ 
trário. 
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Programas do Ates 

Renumerando 


9958 REM RENUHERRNDO 

9959 LET T$ = "" 

9960 LET Xl = 16509 

9951 LET X2=Xl+2 

9952 LET L=256*PEEK Xl+PEEK fXlf 

9953 IF L > =9959 THEN GOTO 9975 

99b4 LET C =PEEK X2+256*PEEK (X2 + 

1 ) 

9955 IF PEEK (X2+2) =234- THEN GOT 
O 9959 

9955 FOR I=X2+2 TO X2+C 

9957 IF PEEK 1=235 OR PEEK 1=237 
THEN GOSUB 9971 

9958 NEXT I 

9959 LET Xl=X2+C+2 

9970 GOTO 9951 

9971 IF PEEK (1+5)=125 THEN GOTO 
9974 

9972 PRINT “COMANDO FORA DAS NOR 

MAS NR LINHA . L 

9973 STOP 

9974 LET T$=T$+STR$ I+CHR* PEEK 
(1+1)+CHR$ PEEK ÍI+2)+CHR$ PEEK 
(1+3)+CHR$ PEEK (1+4) 

9975 RETURN 
9975 LET 5=1000 

9977 LET Xl=15509 

9978 LET X2=Xl+2 

9979 LET L=255*PEEK Xl+PEEK (XI+ 
1) 

9980 IF L > =9959 THEN STOP 

9981 LET C=PEEK X2+255+PEEK (X2+ 

1) 

9982 FOR 1=1 TO LEN T% STEP 9 

9983 IF URL T$(I+5 TO 1+8)=L THE 
N GOSUB 9990 

9984 NEXT I 

9985 POKE XI,INT (B/256) 

9986 POKE (Xl+1),B-256*INT (5/25 

6) 

9987 LET B=B+10 

9988 LET Xl=X2+C+2 

9989 GOTO 9978 

9990 FOR J=1 TO 4 

9991 POKE (URL T%iX TO I+4)+U),C 
ODE (STR$ B)(U) 

9992 NEXT U 

9993 LET BYTE 1=128+INT (LN B/LN 
2 + 1 ) 

9994 LET BYTE2=B*55535/(2**í BYTE 
1-128)) 

9995 LET M=URL T$(I TO 1+4) 

9995 POKE M +6,BYTEl 

9997 POKE M + 7,INT ÍBYTE2/255) -12 
8 

9998 POKE M + S _p BYTE2 —256* INT (BYT 
E2/256) 

9999 RETURN 


Este programa é o primeiro de uma 
série de programas especiais que preten¬ 
demos oferecer aos nossos assinantes. 

Ele é do tipo que resolvemos denomi¬ 
nar "programa-ferramenta". Um progra¬ 
ma desta natureza tem como finalidade 
auxiliar o programador e simplificar sua 
tarefa. 

Ao se digitar um programa novo pela 
primeira vez devemos tomar o cuidado de 
deixar posições vazias entre o endereço 
de uma linha e o da linha seguinte. (Al¬ 
guns programadores têm por hábito nu¬ 
merar, por exemplo, de 10 em 10.) Isto é 
uma atitude prudente ditada pela Lei de 
Murphy: "Se algo tem chance de dar erra¬ 
do, certamente dará errado". Ao se rodar 
um programa recém-digitado, fatalmente 
desoobre-se uma porção de "grilos", cuja 
eliminação exige a inserção de novas li¬ 
nhas. Após várias tentativas, o programa 
está pronto mas com uma numeração que 
fere o senso estético da maioria das pes¬ 
soas. Além disso, um bom programador 
envergonha-se desta estranha numera¬ 
ção, pois sabe que outro pode deduzir os 
erros iniciais que ele cometeu pela nume¬ 
ração dos "remendos". 

O programa RENUMERANDO visa 
eliminar estes inconvenientes. Inicial¬ 
mente ele deve ser digitado e salvo em fi¬ 
ta. 

Antes de se digitar um novo progra¬ 
ma ele deve ser carregado no computa¬ 
dor. Na linha 9958 é conveniente colocar 
um monte de espaços vazios depois do tí¬ 
tulo RENUMERANDO. Isto produz um 
hiato entre a rotina já inserida e o progra¬ 
ma que você está digitando e ajuda a se¬ 
paração visual na listagem da tela. 

Você deve ter o cuidado de digitar 
todos os endereços indicados por um 
GOTO ou GOSUB com quatro dígitos. 
Por exemplo, se no rascunho de seu pro¬ 
grama você tem uma linha assim 
312 GOTO 418 
ela deve ser digitada assim 
312 GOTO 0418 

Uma vez digitado o rascunho do progra¬ 
ma, basta comandar 

GOTO 9959 

que, após um certo tempo (30 segundos 
para um programa de 1 K), seu programa 
reaparecerá numerado a partir da linha 
1000 de 10 em 10. 

Se algum GOTO ou GOSUB estiver 
fora das normas (4 dígitos), a rotina parará 
e sua linha 9972 indicará, na mensagem, 
em que linha do rascunho isto ocorreu. 

A linha em questão deverá então ser 
corrigida e novamente a renumeração de¬ 
verá ser reiniciada por um 
GOTO 9959 

Após um certo tempo de prática, o 
programador poderá dispensar a mensa¬ 
gem e substituir a linha 9972 por 
9972 LIST L 

Neste caso, ao detectar erro, a rotina 


já colocará o cursor de listagem (£>]) na li¬ 
nha a ser corrigida, com economia de 
tempo. 

Se o programa ti ver algum GOTO ou 
GOSUB obrigatoriamente fora de norma, 
por exemplo 

312 GOTO (x +3) 

haverá uma indesejada interrupção da ro¬ 
tina. Para driblar sua vigilância podemos 
usar a linha 9965 que pula os REMs. Neste 
caso inserimos um REM no rascunho: 

312 REM GOTO (x + 3) 
que deverá ser oportunamente apagado 
após a renumeração. 

Se quisermos alterar a numeração da 
linha inicial do nosso programa 
(mantendo-a porém com 4 dígitos) pode¬ 
mos mudar a linha 

9976 LET B = 1000 

usando valores de B maiores que 1000. 


Podemos também alterar a linha 
9987 LET B = B+ 10 
alterando com isto o incremento. Queren¬ 
do esnobar em cima de um programa se 
guramente pronto e retocado, podemos 
numerar de 1 em 1 : 

9987 LET B = B+l 
Além disso, é conveniente certificajr- 
se de que o computador esteja em FAST 
antes de se iniciar a rotina. 

A única parte realmente enjoada dis¬ 
so tudo é finalmente ter de apagar as li¬ 
nhas da rotina uma vez terminada a tarefa. 
Se o programa, porém, não estiver abso¬ 
lutamente perfeito (lembre-se a Lei de 
Murphy!), e não houver limitação de me¬ 
mória, é conveniente deixar esta rotina 
pendurada no fim do seu programa ao 
salvá-loem fita. Afinal de contas, nunca se 
sabe...! . 
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□icas 

O "Auto-Start" 

Se você já usou fitas de programas já 
prontos deve ter notado que ao serem car 
regadas, algumas delas ao invés de apre¬ 
sentarem a tela vazia com o código "0/0", 
já iniciam o programa imprimindo algum 
título ou alguma instrução inicial. 

O truque para se fazer isto é extrema- 
mente simples: basta pôr o comando "SA- 
VE" no próprio programa. Vamos exem 
plificar: digamos que você tenha o se 
guinte programa: 

5 SLOU 

10 PR1NT O PROGRAMA COMECOU" 
20 PRINT "ESTA EH A SEGUNDA OR 
DEM" 

30 PRINT "QUAL SEU NOME ?" 

♦0 INPUT N* 

50 CL 5 
60 PRINT N $ 

65 ST OP 

Para guardá-lo em fita, normalmen¬ 
te, você digitaria: 

SAVE “DICA" 

e 5 segundos após o NEW LINE, o progra 
ma começa a ser enviado para a fita K-7. 

Ao recarregar o programa você terá 
tela vazia e código 0/0. (Experimente fa¬ 
zer isto: nào precisa usar fita de verdade 
pois ao terminar a execução do “SAVE" a 
tela já mostra como seria o fim do 
“LOAD".) 

Acrescente agora as linhas: 


70Í5RUE “DICR” 
80 RUN 


Para guardar este novo programa de 
fita, digite: 


GOTO *7© 


e 5 segundos após o NEW LINE, o progra¬ 
ma começa a ser enviado para a fita. 

Quando este programa é carregado, 
todas as instruções após o: 


“70 SRUE M DICfl M 


sâo executadas. No caso, a instrução é 


80 RUN 


que faz o programa correr. Note que na 
tela já aparecem os “PRINTs" das linhas 
10, 20 e 30 e o computador já está aguar¬ 
dando o INPUT da linha 40. 


Digite seu nome e NEW LINE. 

O programa pára na linha 65. Aperte 
NEW LINE para listá-lo. 


5 5LOU 

10 PRINT “O PROGRAMfi COMECOU" 
20 PRINT "ESTA EH A SEGUNDA OR 

:M" 

30 PRINT " OUflL SEU NOME *?** 

4-0 INPUT N* 

50 CLS 
60 PRINT N % 

65 5TOP 
70 SRUE "DICS" 

80 RUN 


Note, na linha 70, que o último carac¬ 
tere do código de SAVE ficou em vídeo 
reverso. Náo se preocupe, pois isto é nor¬ 
mal. 

Mude agora a linha 80 para: 


80 GOTO 20 


e SAVE novamente o programa digitando 


GOTO 70 


o programa agora se inicia na linha 20. Dl 
gite novamente seu nome e mude a linha 
80 para: 


80 GOTO 60 


Novamente digite: 


GOTO 70 


para salvar o programa. 

O programa agora inicia na linha 60: 
seu nome aparece na tela, pois é um dado 
que foi salvo junto com a fita. 

Esta técnica é exatamente útil quan 
do o programa armazenado está "RE¬ 
CHEADO" de dados que podem ser can¬ 
celados por um inoportuno "RUN". 

Podemos entáo fazer programas "A 
PROVA DE DINORÁS", usando a instru¬ 
ção "SAVE" no próprio programa e 
fazendo-a seguir de uma instrução que fa¬ 
ça o programa começar numa região on¬ 
de os dados nâo possam mais ser destruí¬ 
dos. 



agora VOCÊ pode: 


— Carregar o seu micro SEM ajustes 
críticos de volume do gravador. 

— Usar aquele programa que não "entrou" 
em outras ocasiões. 

— Carregar programas gravados por 
outros gravadores. 

— Gravar "direto" de outro gravador, 
e a gravação ficar perfeita. 


USE TIG-LOADER! 


instale TIG-LOADER 
entre o micro e o gravador, e prontol 
FÁCIL DE USAR, EFICIENTE... E BARATO. 

Peça informações para a 
CAIXA POSTAL 18948 
São Paulo — Capital. 

Atendemos todo o Brasil. 
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NOVIDADES 


A Micromega Publicações e Material 
Didático provou sua versatilidade e lide¬ 
rança quando do lançamento da Revista 
dos Usuários do TK, que está sendo ele¬ 
mento de estimulo e apoio aos seus afic- 
cionados. E a Micromega promete incre¬ 
mentar o setor com seis lançamentos na 
área editorial com os livros: BASIC TK 
elementar; BASIC TK avançado; Língua 
gem de máquina para o TK (principais 


instruções e primeiras aplicações); Lin¬ 
guagem de máquina para o TK (aplica¬ 
ções avançadas); Coleção de programas 
vol. 1; e Curso de jogos em Basic TK para 
adolescentes. 

Neste empreendimento a Micromega 
terá o apoio da Editora Moderna que atua 
rá como co-editora das publicações, que 
deverão estar no mercado no mês de ju¬ 
nho. 


Outra novidade de interesse é que a 
conhecida agência Avant Garde, distri¬ 
buidora de livros, revistas e jornais, situa¬ 
da à Av. Brigadeiro Faria Lima, 1237, loja 
7, São Paulo, tel.: 210-9020, agora estará 
vendendo também livros e revistas de 
computação. 



micromega 



MODERNA 


CURSO DE BASIC TK 



Neste número iniciamos um curso de 
Basic TK voltado inicialmente para os 
principiantes. A estes aconselhamos 
acompanhar passo a passo com o compu 
tador ligado (não há necessidade de ex¬ 
pansão). É aconselhável também colecio¬ 
nar a Revista para poder aproveitar uma 
série de coisas que agora você ainda não 
pode acompanhar, mas que futuramente 
serão muito úteis. 

Pier/uigi Piazzi Flávio Rossini 

O que é um computador? 

Um computador é uma série de circuitos 
eletrônicos capazes de interpretar e exe¬ 
cutar ordens recebidas dos seres huma 
nos para realizar operações matemáticas 
e manusear informações, podendo inclu¬ 
sive controlar outros aparelhos. 

O computador se caracteriza por: 

a) ser RETARDADO 

b) ter MUITA MEMÓRIA, sendo incapaz 
de ESQUECER alguma coisa 

c) ser MUITO RÁPIDO 

d) ser PRECISO 

e) não ERRAR nunca 

f) ser EXTREMAMENTE OBEDIENTE, 
executando ordens sem qualquer re¬ 
clamação! 

Os computadores, analogamente aos se¬ 
res humanos, têm um cérebro (responsa 
vel pelo controle e cálculo) e dispositivo 
para se comunicar com o mundo externo, 
ou seja, receber informações e enviar in- 
formaçaões. No caso do TK, este seria o 


esquema básico(fig. 1). 

O microprocessador é o cérebro, usando 
a memória para armazenar dados e infor¬ 
mações, o teclado para receber informa¬ 
ções do ser humano e a TV ou impressora 
para enviar informações. Como o compu¬ 
tador só é capaz de reter as informações 
enquanto estiver "acordado" (ligado), ao 
"adormecer" (ser desligado) ele esquece 
TUDO o que havia sido colocado na me¬ 
mória! Portanto, utiliza-se um gravador 
K-7 para gravar estas informações que 
eventualmente serão utilizadas de novo 
no futuro. 

Note que, de todas as características do 
computador, a mais indesejável é a pri¬ 
meira, ou seja, o fato dele ser RETARDA¬ 


DO! E é justamente isto que devemos ter 
sempre em mente: o computador é rápi¬ 
do, obediente e preciso mas NÃO tem in¬ 
teligência; apena s se limita a executar or¬ 
dens EXATAMENTE como foram formu 
ladas. 

Para poder acompanhar este curso é con¬ 
veniente começar ligando o TK. A fonte 
de alimentação deve ser ligada á tomada, 
o interruptor na posição OFF (desligado) 
e o plug macho no terminal C. C. do com¬ 
putador. 

Na saída RF (vídeo) ligar o cabo de ante¬ 
na. Ligar a outra extremidade do cabo da 
antena nos 2 terminais da antena do televi¬ 
sor (pode ser branco e preto) e sintonizá- 
lo no canal 2 (com volume no mínimo). 
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Colocando a chave (ON-OFF) da fonte de 
alimentação na posição ON, no canto in¬ 
ferior da tela deve aparecer um quadradi¬ 
nho com um K em seu interior: 

Figura 2 


— 

-\ 


LIST 



letra 

ÍK 1 

□ 


((El) - “ 

|K 1 

_ ) 


LEN 


Ele é chamado de cursor e será muito útil 
para nos ajudar a trabalhar com o compu¬ 
tador. Este E é abreviação de KEY 
WORD, ou seja, palavra-chave. As pala 
vras-chaves sâo as que aparecem ACIMA 
de cada tecla; assim, se o cursor estiver 
emEl, ao apertar qualquer tecla que tenha 
uma palavra-chave acima da mesma, esta 
palavra aparecerá no canto inferior da te- 

, palavara-cha ve 


Figura 3 



(key word) 


A Instrução PRINT 

Vamos começar a dar ordens ao computa 
dor: aperte a tecla da letra P; você irá ob¬ 
ter PRINT na tela, seguido do cursor que 
agora mudou paratLJÍque é a abreviação 
de LETTER, ou seja, letra), indicando que 
o computador nâo mais espera uma pala¬ 
vra-chave, mas sim uma letra ou número; 
experimente digitar o número 57. O que 
você está ordenando? Ora, PRINT signifi¬ 
ca ESCREVA, portanto, você está dizen¬ 
do ao computador: "Escreva o n? 57"; ele 
executará a sua ordem! Basta informá-lo 
de que a ordem está completa e isto pode 
ser feito pressionando a tecla NEW LINE. 
Verifique o que aparece no canto superior 
esquerdo! No canto inferior aparece a se¬ 
guinte 0/0; não se importe com isto por en 
quanto; apenas saiba que o cursorE^stá 
"escondido" detrás destes números 


Figura 4 



cia SHIFT simultaneamente com a tecla 
K! (O mesmo é válido para todos os carac¬ 
teres em vermelho no TK 82 ou em amare¬ 
lo no TK 85). 

„ palavra-chave (0) 


SHIFT 

(CP 


Se você esqueceu disto, você irá obter: 


PRINT 7K9§ 


que não faz nenhum sentido! Teremos que 
apagar a letra K! O computador é capaz 
de apagar somente o caractere que estiver 
imediatamente à esquerda do CURSOR; 
portanto, devemos aprender a DESLO¬ 
CAR o cursor; observe as teclas 5 e 8; ne¬ 
las você verá, em vermelho (ou amarelo), 
o seguinte: 


portanto, ao apertar SHIFT e as teclas 5 ou 
8, o cursor caminhará para a esquerda ou 
para a direita! Suponha que você tivesse 
cometido o erro acima mencionado estan¬ 
do com o cursor na posição indicada. 
Pressione SHIFT e 5 ao mesmo tempo e 
você obterá: 


PRINT 7KJS9 


Pronto, o caractere que desejamos apagar 
está imediatamente à esquerda do cursor; 
para apagá-lo basta pressionar SHIFT e a 
tecla 0 (RUBOUT) simultaneamente; você 
obtém: 


<=> 


PRINT 7B9 


Agora coloque o sinal de " + " e a seguir 
pressione NEW LINE; o computador exe¬ 
cuta sua ordem e escreverá 16 no topo da 
tela! Se você mandar o computador exe¬ 
cutar uma ordem que não tem sentido, 
duas coisas podem ocorrer: ou ele não 


De fato, pressione P e você obterá nova¬ 
mente PRINT [D; faça então com que ele 
ESCREVA o resultado de uma conta de 
somar, por exemplo: 


PRINT V+ 


Note que o caractere " 4- " está em verme¬ 
lho na tecla da letra K; para fazer com que 
o " + " apareça na tela, basta apertar a te- 


Para dominar 
seu computador 
pess oal, vá direto 



Aulas de BASIC em turi 
reduzidas (12 alunos) com 
assistência individual e um 
micro (TK82-C) 
pèrmanent 
disponível para cada 
2 alunos. 

NIVELI - Linguagem BASIC 
e fundamentos de 
programação. 

DURAÇÃO: 20 horas 
PRÉ-REQUISITOS: 
nenhum: o curso é para 
principiantes. 


__M£ASIC 
Avançado: Programação 
de jogos, aplicações 
administrativas e 
cientificas 

DURAÇÃO: 20 horas 
PRÉ-REQUISITOS: Nível I 
ou equivalente. 

NÍVEL III - Linguagem de 
máquina especial para o 
TK82-C 

DURAÇÃO: 20 horas 
PRÉ-REQUISITOS: Nível II e 
exame prévio 



Local e Informações: 

NÚCLEO DE ORIENTAÇÃO DE ESTUDOS 

Av. Brig Faria Lima. 1.451 -Conj. 31 01451 S Paulo SP 
Tel: 813-4555 
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executa nada, aparecendo apenas os nú¬ 
meros por enquanto sem sentido no canto 
inferior da tela ou ele detecta o erro, não 
executando a ordem e apontando com o 
cursor0(de sintaxe) onde está o erro; isto 
depende do tipo de erro que você come¬ 
ter! • 

Experimente colocar: 


PRINT +-6JS 


e a seguir NEW LINE! (O caractere "—" 
está na tecla J) 

Você obterá: 


PRINT +B-SB 


Desloque então o cursor[Qpara a direita 
do sinal de " + " e apague-o; substitua-o 
pelo número 3: 


PRINT 3J5-8 


e pressione NEW LINE! Agora o computa¬ 
dor é capaz de entender a sua ordem e 
executará a operaçao, fazendo aparecer 
— 5 na tela! 

Vamos agora ordenar que o computador 
calcule o valor de uma expressão mate¬ 
mática: 


PRINT 10-2*5** 
2+3/5*2f5 


Neste ponto, várias observações sâo ne¬ 
cessárias: nâo confunda a letra O com o 
número zero, que é assim representado: 
0. O computador interpreta o símbolo 
como um sinal de MULTIPLICAÇÃO, o 
símbolo "/" como um sinal de divisão e o 
símbolo "* *" (tecla H) como um sinal de 
EXPONENCIÀÇAO. A exponenciaçâo é 
considerada a conta de maior prioridade, 
seguida pela multiplicação e divisão com 
igual prioridade e, a seguir, pela soma e 
subtração, também com igual prioridade; 
assim, esta expressão será executada des¬ 
ta maneira: 

Figura 6 


10 — 2*5*' 

2 + 3/5*2 = 

10 — 2*25 

3/5*2 = 

10 — 50 + 

3/5*2 = 

10-50 + 

li 

CN 

♦ 

CO 

o 

10 —50 4- 

1.2 = 

—40 + 1.2 

1 _ 

-38.8 



(Em caso de empate, a 1 ? operação a ser 
executada será a que estiver mais à es¬ 
querda) 

e o —38.8 aparecerá na tela; note que o 
computador usa "." (ponto)'ao invés da "," 
(virgula), segundo a notação inglesa. 

Verifique que, o sinal de exponenciaçâo 

* * deve ser o da tecla onde está a letra H ; 
não adianta pressionar duas vezes o sinal 

* da tecla B! Apesar do efeito na tela ser o 
mesmo, o computador nâo entenderá sua 
ordem e dará um erro de sintaxe! 

Numa expressão matemática você pode 
também utilizar os parênteses (letras I e 
O), por exemplo: 


PRINT 4-* (7-2) B 


Neste caso, -a subtração será executada 
primeiro e vt>cê obterá o número 20. 
Surge agora a seguinte pergunta: e se eu 
desejar escrever uma palavra ou frase? É 
simples! Basta colocar a palavra ou frase 
entre aspas (", tecla P), por exemplo: 


PRINT ,, BEflTLE5 ,, B 


e, a seguir, NEW LINE! 

Note que as aspas significam o seguinte: 
"computador, copie exatamente o que es¬ 
tiver escrito entre aspas"! De fato, experi¬ 
mente colocar: 


PRINT *• 3 +4. **B 


e NEW LINE! Sua ordem será executada; 
ele copiará 3 + 4 no topo da tela mas SEM 
executar a operação! Portanto, você po¬ 
derá colocar todos os caracteres que qui¬ 
ser (letras, números, símbolos) entre as¬ 
pas . Se você desejar que as próprias aspas 
sejam copiadas no topo da tela, você de¬ 
verá usar as aspas duplas (tecla O), da se¬ 


guinte maneira: 

PR INT .BEATLES” “ 


pressione NEW LINE e você irá obtêr 
"BEATLES", ao invés de BEATLES, no 
canto superior da TV! 

A esta altura, você deve estar cansado(a) 
de escrever sempre no topo da tela; vamos 
variar um pouco! Para isto é necessário 
saber que a tela tem disponíveis 22 linhas 
e 32 colunas numeradas de0q21e0a31 
respectivamente, sendo que a posição do 
canto superior esquerdo da tela é a posi¬ 
ção 0,0. Note que estas 22 linhas NÂO IN¬ 
CLUEM a linha onde você escreve a sua 
ordem; você tem 2 linhas para isto, sem¬ 
pre disponíveis. Vamos então escrever 
BEATLES a partir da linha 10 e coluna 5: 
(figura 7) 

Basta fazer o seguinte: 

PRINT «T 10,5; 
"BEATLES”! 

Preste atenção: a palavra AT não é uma 
palavra-chave, nem letra, mas sim uma 
função e, para que possamos escrevê-la, 
devemos mudar o cu rsor deGQsa ra[El pa ra 
fazer isto, pressione SHIFT e NEW LINE 
(FUNCTION) simultaneamente. Agora, 
com o cursor emQD.aperte a tecla C. Todas 
as palavras que estiverem abaixo de cada 
tecla são tratadas como FUNÇÕES e, pa¬ 
ra obtê-las na tela, é necessário o cursor 
estar em F (fig. 8). 



função 

(DEI) 


Não ADIANTA tentar escrever a função; 
por exemplo, no caso, apertando a letra 
A e a letra T e a seguir um espaço (tecla 
SPACE)! Experimente fazer isto e ver o 
que ocorre! 


Figura 7 
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Faça agora o seguinte: 

PRINT RT 12,28; 

,, BEPTLES ,, § 

Tente explicar o que acontece! 

A instrução LET 

Experimente, agora, tentar escrever uma 
palavra sem usar as aspas na ordem de 
PRINT. 


PRINT LOUEB 


Ao apertar NEW LINE, nada aparecerá no 
canto esquerdo superior da tela, mas tam¬ 
bém não aparecerá o cursor S indicando 
erro! Veja porque: quando uma letra ou 
grupo de letras aparece sem aspas, o com¬ 
putador interpreta esta letra ou grupo co- 
mo uma VARIÁVEL MATEMÁTICA, cu- 
jo valor deveria estar em sua memória; ele 
irá procurá-la sem no entanto encontrá-la 
e por isto nâo poderá escrever seu valor! 


Experimente, então, fazer: 


LET LOUE=10B 

(LET, letra L) 

e ; a seguir, NEW LINE! Nada aparecerá 
novamente no topo da tela! De fato, você 
não ordenou ao computador que ele es¬ 
crevesse mas sim que, em SUA MEMÓ¬ 
RIA, atribuísse à variável LO VE o valor 
10 ! 

Experimente fazer agora: 


PRINT LOUéB 


O que você obtém? Ora, ele irá procurar 
LOVE em sua memória e irá achar o nú¬ 
mero 10 que será então escrito! Faça ago¬ 
ra: 


LET LOVE =LOUE 4- lB 

(NEW LINE) 


_ LANÇAMENTO — 

PASSAGEM PARA O INFINITO 

Sensacional jogo onde vocé tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terríveis polvos monstros, e com mais de 400 pas 
sos Para ajudá lo. vocè contara com algumas espadas, que garanurao sua sobrevi 
véncla na luta com os monstros, e com os prisioneiros encarcerados nas várias pas 
sagens que lhe mdicaráo o caminho a seguir Totalmente em linguagem de máquina 
com gráficos fantasticamente animados e très níveis de dificuldade para desafiá-lo 
Preço Crg 7 000.00 

- MIDWAY - 

Uma grande guerra mundial esta sendo travada nas águas do Atlântico Vocé agora é 
o comandante do submarino atômico MIDWAY. sua missáo destruir todas as bases 
inimigas em águas brasileiras Cuidado com os navios, avsoes e minas espalhados pe 
los invasores Para auxiliá-lo poderá contar com uma frota de navios de reabasteci 
mento, várias bases aliadas e um computador de bordo Um grande desafio com grá¬ 
ficos e várias rotinas em linguagem de máquina Preço Cr$ 6 000.00 

-JORNADA NAS ESTRELAS - 

A sua nave interplanetária KNTP.EPRISE necessita livrar a galáxia dos invasores 
Klingon. e vocé. como comandante da nave. terá a árdua mlssáo de destrui los Um 
jogo famoso no mundo todo em uma de suas melhores versões pela Soítkristian. com 
efeilos gráficos sensacionais Preço Cr$ 5.0ÒÓ.0ã 

-8* DIMENSÀ0- 

Agora você Já pode terum fllperamaem seu microcomputador em2‘ DIMENSÃO dois 
jogos agitadíssimos para testar Bua coordenaçáo motora Em SPACE INVADER vocé 
tem os originais invasores atacando sua nave e em ASTEROID vocè deve pousarem um 
planeta e. para tanto deverá ultrapassar os obstáculos que vèem à sua frente tentando 
destrui lo Orandes jogos em linguagem de máquina Preço Crg 5 000.00 

- VISITA A0 CASSINO ■- 

Quatro grandes Jogos em um sõ caça-mqueis. roleta. 21. e perseguiçáo fatal fazem 
parto deste sensacional conjunto Todos os jogos com gráf icos e rotinas em linguagem 
de máquina, para vocè que gosta de apostar e torcer Preço Cr$ 6 000,00 

-10 JOGOS EXCITANTES PARA 1 K- 

Dez pequenos Jogos para vocè Incrementar e apronder bastante os efeitos de progra 
maçáo de Jogos e trabalhos com video Se vocè náo dispõe da expansáo de 16 K Já pode¬ 
rá ter entretenimento com esta sensacional fita Se vocè Já dispõe de 16 K compre para 
incrementa- los e terá excelentes jogos Preço Crg 4 000.00 


Rua da Lapa. 120 grupo 505 
Tels 252 9057 232 5948 
CEP 20021 - Rio de Janeiro RJ 
Todas as fitas váo em embalagem lacrada, com gravaçáo profissional, para sua garan¬ 
tia. A Knstian trocará qualquer fita que seja enviada, com defeitos de fabricaçáo 


Compre conosco oe qualquer pane úo Brasil sem 
despesas adicionais envianoo um cneque cruza 
doe nominal á KRlSUAN ELETRÔNICA itca mào 
preosa visar) e garanta o recepimento de nosso 
informativo NOVIDADES KRiSTlAN totalmente 
gratuito 



Note que o sinal de igual usado no compu¬ 
tador não tem o significado usual; de fato, 
seria absurdo matematicamente dizer que 
um número é igual a ele mesmo mais um! 
Portanto, o sinal de igual significa: atri¬ 
bua á variável da esquerda o número ou 
resultado da operação que estiver à direi¬ 
ta! 

Digite agora: 


PRINT M LOUE";LQUEB 

(NEW LINE) 

Note bem o efeito das aspas! O ponto e vír¬ 
gula é necessário para o computador en¬ 
tender que deve escrever coisas distintas! 
Se você não gostou do fato dos escritos saí¬ 
rem 'grudados", basta colocar um espaço 
em branco após a palavra LOVE entre as¬ 
pas; para obtê-lo, pressione a tecla SPA¬ 
CE: 


PRINT "LOVE •*; LOUEB 


Lembre-se, na memória do computador 
agora está a variável LOVE associada ao 
número 11. Obviamente se você desligá- 
lo ele irá "esquecer" isto e ao ser ligado 
novamente nada aparecerá na tela se vo¬ 
cê ordenar: 


PRINT LOUEB 


Entretanto, você pode "apagar" as variá¬ 
veis da memória do computador sem 
desligá-lo, usando a ordem (key-word): 

CLEAR (letra X) 

Experimente então fazer CLEAR, 

NEW LINE e, a seguir, faça: 


PRINT LOUEB 


Como esperado, nada será escrito, pois o 
computador-"limpou" a sua memória! 
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Como fazer sua 
assinatura 


A nossa Revista não será dis¬ 
tribuída nas bancas. Para obter 
seu exemplar mensal, contendo 
muitos programas para o seu TK, 
muitas dicas e prêmios interessan¬ 
tíssimos, você deverá fazer uma 
assinatura: o preço anual da assi¬ 
natura é de Cr$ 11.800. Porém, até 
30 de junho, manteremos o preço 
de Cr$ 9.900. 

Além da Revista, você ganha¬ 
rá uma fita com dois jogos inéditos, 
exclusivos para nossos assinantes: 
um deles necessita apenas 2 K de 
RAM para ser rodado; o outro já 
exige uma expansão de 16 K. Esta 
fita, se comercializada, teria um 
preço aproximado de Cr$ 6.900. 


Você deverá preencher o cu¬ 
pom anexo e colocá-lo num enve¬ 
lope, junto a um chegue nominal 
ou vale postal a favor de Microme- 
ga Publicações e Material Didático 
Ltda., no valor de Cr$ 9.900 (ofer¬ 
ta válida até 30 de junho). O enve¬ 
lope deverá ser selado e endereça¬ 
do à Micromega P. M. D. Ltda. — 
Caixa Postal n? 60081 — CEP 
05096 — São Paulo — SP. 

Faça as contas e não perca es¬ 
ta oportunidade. Fazendo sua assi¬ 
natura durante esta promoção, vo¬ 
cê estará pagando pouquíssimo 
por exemplar (lembre-se: só a fita 
que você ganha de brinde vale 
Cr$ 6.900.) e estará iniciando uma 
valiosa coleção a partir do n? 1. 


Olha só o que está 
reservado para o n? 2 



Programas do Leitor: 

Muitos programas interessantíssi¬ 
mos bolados ou adaptados por 
nossos leitores. 

Programas do Mês: 

Como fazer gráficos de alta resolu¬ 
ção (256 x 256 pontos) no seu TK. 
Como memorizar a tela para uso 
posterior. 

Dicas 

O uso de FLAG para você não se 
perder no meio de um programa 
complicado. 

Novidades 

As funções especiais do TK 85. 

Cursos 

Continuação do Curso Basic TK e 
começo do Assembly Z80 do TK. 

Pequenos Anúncios 

Para esta seção você poderá enviar 
um pequeno anúncio para publi¬ 
cação gratuita. 
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Rua Visconde de Pirajá, 540 Loja 106 
CEP 22410 • Rio de Janeiro-RJ 

Fone: (021) 259-1516- 

Telex: (021) 31107 * Ipanema-RJ 


SOFTWARE E COMPUTADORES USADOS 


Temos também CURSO DE BASIC 

V_ 


Atendimento personalizado. 

Muito mais que uma frase de propaganda 
é um compromisso honrado. 


Ipanema Micro, uma boutique 
eletrônica com calor humano. 


Financiamento em até 24 pagtos. 
sem entrada e /easing. 


Expansões de memória p/TK82-C de 16K e 64K 
Joystick - Impressora - Unha completa MICROSOFT 


IpflnEÍTlfl nitCRD 

o maior revendedor TK no Brasil 



DOR INSTANTÂNEO P/FITAS K-7 


SEM PILHAS OU ENERGIA ELETRICA 


PARA 
APAGAR 
BASTA PASSAR 
A FITA IDA E 


VOLTA PELA 


ABERTURA 


rwiniao 


Apaga em apenas 4 segundos, qualquer fita cassete 
independente de sua duração, eliminando todos os 
ruídos e chiados decorrentes de frequentes regravações. 
Poupa tempo e melhora a qualidade na reutilização. 
Gravando a fita em cima de outra gravação, a 
qualidade da reprodução será reduzida 
consideravelmente, além de criar confusão na gravação, 
principalmente se esta for por tempo mais curto que a 
anterior. 

Desgravando com o TWIN GO, nada disso acontece e 
você ainda tem uma garantia de 5 anos contra defeitos 
ou qualquer deficiência técnica do aparelho. 

TWIN GO, indispensável a todos os adeptos na 
utilização de fitas cassete. 


Pedidos por carto à 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 - CEP 05096 - São Paulo-SP 

anexando Cheque Nominal ou Vale Postal, 
incluindo mais despesas de frete no valor 
de Cr$ 500,00, autorizando o recebimento 
da compra no prazo de 15 dias. 


Cr$6.864,00 

p/ assinantes do revista 
MICROHOBBY promoção 
válida até 30/06/83 

mfcromega 
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Programas para o seu 
TK82-C e TK85 


JOGO DE GAMÂO 
16K 

Este programa apresenta o tabuleiro no 
video e utiliza o eficiente codigo de ma- 

3 uina. permitindo 4 (Quatro) níveis de 
ifícufdades de jogo. 


,^g?Q ; Co 1 


LABIRINTO 

TRIDIMENSIONAL • 16K 

Jogo em três dimensões O jogador po¬ 
derá definir a dificuldade do Labirinto 
O programa apresenta a posiçáo do jo 
gador em perspectiva Em qualquer mo 
mento e possível pedir auxilio ao com¬ 
putador 


MATEMATICA I 
16K/64K 

Análise grafica de funções matemáti 
cas. resolução de sistemas de equa 
ções lineares (16K-51 equaçoes '64K 95 
equações), e Cálculo de integrais deli 
nidos _ 


TKADREZ II 
16K 

Este jogo apresenta o tabuleiro e as pe 
04 sno videc Permite a escolha de ate 
^ níveis de dificuldade. 0 programa for¬ 
nece a "ifhxajquer momento, a listagem 
dos lances efetuados, e armazena em 
fita a posição das peças. Ele poderá re 
ceqiendar a sua jogada 




MONSTRO DAS TREVAS 
TRIDIMENSIONAL 16K 

Impressionante jogo onde vocé deve 


DEMOLIDOR 

2K 

Jogo animado, tipo "fliperama" O joga 
dor deverá demolir uma parede com 
uma bola que se encontra sempre em 
movimento. 


H UH : 


INVASORES DO 
ESPAÇO - 16K 

Consiste de uma frota de naves Invaso¬ 
ras extraterrenas, descendo no planeta 
Terra. Sua missão e destruir as naves 
invasoras dispondo da arma de raios la 


RALLY 

16K 

Emocionante corrida de rally em um la¬ 
birinto. onde poderão ser testados sua 
habilidade e seus reflexos. Para conse 
guir seu intento você devera evitar car 
ros ataque e obstáculos em seu trajeto 


TK MAN 
16K 

Jogo animado onde deverão ser apaga¬ 
dos todos os pontinhos espalhados em 
um labirinto (o programa contem 15 ti¬ 
pos de labirinto). Voee sera impedido a 
qualquer custo, por 4 extraterrenos. 
guardiães do labirinto, que poderão ser 
combatidos com cargas de raios-laser 


TKALC 

16K/64K 

Programa desenvolvido para cálculos 
numéricos em planilha. O usuário defi¬ 
ne as colunas, as linhas e as fórmulas I 
aplicadas. Similar ao famoso Visícalc ! 
De grande versatilidade, este programa 
permite a formulação de cálculos cien¬ 
tíficos e comerciais, análise de tabelas 
numéricas e outras aplicações. 
































